   1 .ZAPPIT
   2 .BY ROGER SWEARINGEN
   3 .for  BALLY ARCADE
   4 :return 
   5 clear ;NT=0;C=0;goto 480
  10 clear ;BC=0;FC=7;NT=0;D=255;print "SCORE ",#1,C,;X=rnd (100)-50;Y=rnd (50)-25
  20 gosub 370
  30 line -44,-44,4;line 43,43,1;line -44,43,4;line 43,-44,1
  40 box 0,0,160,1,1;box 0,0,1,88,1
  50 line 0,28,4;line 10,26,1;line 20,20,1;line 26,10,1;line 28,0,1
  60 line 26,-10,1;line 20,-20,1;line 10,-26,1;line 0,-28,1
  70 line -10,-26,1;line -20,-20,1;line -26,-10,1;line -28,0,1
  80 line -26,10,1;line -20,20,1;line -10,26,1;line 0,28,1
  90 line 0,0,4;Z=1
 100 gosub 330
 110 &(21)=Zmul 45;box X,Y,32,6,Z;box X,Y,38,2,Z
 120 box X,Y+3,24,1,Z;box X,Y+4,16,1,Z;box X,Y+5,8,1,Z
 130 box X+21,Y-1,5,4,Z;box X-22,Y-1,5,4,Z;box X+25,Y-2,3,3,Z;box X-26, Y-2,3,3,Z
 140 line X+19,Y+1,4;line X+30,Y-4,Z;line X+24,Y-4,Z;line X-26,Y-4,4;line X-32,Y-4,Z;line X-21,Y+1,Z
 150 box X,Y-4,26,1,Z;box X+8,Y-4,7,2,Z;box X-8,Y-4,7,2,Z
 160 line X-8,Y+1,4;line X-6,Y-1,2;line X-6,Y-2,2;line X-8,Y-4,2;line X-10,Y-2,2;line X-10,Y-1,2;line X-8,Y+1,2;line X+8,Y+1,4
 170 line X+6,Y-1,2;line X+6,Y-2,2;line X+8,Y-4,2;line X+10,Y-2,2;line X+10,Y-1,2;line X+8,Y+1,2
 180 line 0,0,4;if Z#2if TR(1)=1goto 210
 190 if Z=2goto 20
 200 if Z=1Z=2;&(21)=85;goto 110
 210 FC=98;NT=5;&(21)=0
 220 line 0,0,4;line -24,-44,1;line 24,-44,4;line 0,0,1
 230 for Q=0to 3;MU="$";MU="?";next Q
 240 if 10>Xif -10<Xgoto 260
 250 goto 10
 260 if 10>Yif -10<Ygoto 280
 270 goto 10
 280 C=C+1;Q=rnd (15);R=rnd (15);for A=1to 8;Q=Qmul Adiv 2;R=Rmul Adiv 2
 290 &(19)=150;BC=0;&(23)=2255;D=D-3;BC=92;&(21)=D
 300 box Q,R,rnd (5),rnd (5),1;box Q,-R,rnd (5),rnd (5),1
 310 BC=7;box -Q,R,rnd (5),rnd (5),1;BC=92;box -Q,-R,rnd (5),rnd (5),1
 320 next A;&(19)=0;&(21)=0;goto 10
 330 if 10>Xif -10<Xgoto 350
 340 CY=-35;CX=-20;print "TRACKING";return 
 350 if Y<10if Y>-10CY=-35;CX=-20;print " LOCKED";return 
 360 goto 340
 370 if JY(1)=0if JX(1)=0goto 420
 380 if JX(1)=1X=X-25
 390 if JX(1)=-1X=X+25
 400 if JY(1)=1Y=Y-25
 410 if JY(1)=-1Y=Y+25
 420 X=X+rnd (20)-10;Y=Y+rnd (20)-10
 430 if 10>Xif -10<Xgoto 450
 440 return 
 450 if 10>Yif -10<Ygoto 470
 460 return 
 470 X=0;Y=0;return 
 480 print "DO YOU WANT INSTRUCTIONS ? (1=YES 0=NO)"
 490 if &(23)=8goto 520
 500 if &(22)=16goto 10
 510 goto 490
 520 print 'THIS GAME DOES  NOT KEEP   TIME. THE JOYSTICK STEERS THE TARGET, THE TRIGGER    FIRES THE  LASER
 530 print 'Y0U D0 N0T SC0RE A HIT    UNLESS THE SCREEN READS   "LOCKED". HAVE FUN!
 540 for A=0to 4000;next A;goto 10